<% intid=request.QueryString("id") set rsOldnews = connect.execute("select id, rubrik, ingress, bild, bildtext, datum, forfattare, eforfattare, nyheter from nyheter where id=" & intid & "") set rsantal = connect.execute ("select antal from antal") intAntal=rsantal("antal") alignment="right" antal=0 do until rsoldnews.eof or antal = intantal if rsoldnews("bild")="no_image.jpg" then %> <% if rsoldnews("ingress") >"" then %> <% else %> <% end if %>
<% =rsOldnews("Rubrik") %>
Published: <% =FormatDateTime(rsOldnews("Datum"),2) %>  
Author: "> <% =rsOldnews("Forfattare") %>
<% =rsOldnews("ingress") %>

<% =rsOldnews("nyheter") %>		<% =rsOldnews("nyheter") %>


<% else %> <% if rsoldnews("ingress") >"" then %> <% else %> <% end if %>
<% =rsOldnews("Rubrik") %>
Published: <% =FormatDateTime(rsOldnews("Datum"),2) %>  
Author: "> <% =rsOldnews("Forfattare") %>
">
<% =rsOldnews("Bildtext") %>
<% =rsOldnews("ingress") %>

<% =rsOldnews("Nyheter") %> 		<% =rsOldnews("Nyheter") %>


<% end if %>

<% antal=antal+1 rsOldnews.movenext loop rsOldnews.close set rsoldnews = nothing rsantal.close set rsantal = nothing %>